From: Richard M. Stallman Date: Mon, 29 Dec 2003 19:52:25 +0000 (+0000) Subject: (sendmail-user-agent-compose): Use assoc-string. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24665 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dda794ca88344282ac8e2f626c8d9c7fbc900fa3;p=emacs.git (sendmail-user-agent-compose): Use assoc-string. --- diff --git a/lisp/simple.el b/lisp/simple.el index ade177c5b8e..d23ed11c6c3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3735,9 +3735,9 @@ See also `read-mail-command' concerning reading mail." (same-window-buffer-names nil) (same-window-regexps nil)) (funcall switch-function "*mail*"))) - (let ((cc (cdr (assoc-ignore-case "cc" other-headers))) - (in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers))) - (body (cdr (assoc-ignore-case "body" other-headers)))) + (let ((cc (cdr (assoc-string "cc" other-headers t))) + (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t))) + (body (cdr (assoc-string "body" other-headers t)))) (or (mail continue to subject in-reply-to cc yank-action send-actions) continue (error "Message aborted"))